home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-06 / segue.exe / NCLASS.PRG < prev    next >
Text File  |  1991-10-28  |  1KB  |  43 lines
  1. *.............................................................................
  2. *
  3. *   Program Name: NCLASS.PRG        Copyright: HRF Associates, Inc.                                     
  4. *   Date Created: 10/28/11           Language: Clipper                                             
  5. *   Time Created: 22:03:37             Author: Bob Fogle                                 
  6. *
  7. *.............................................................................
  8. * Supplemental SEGUE function for specifiying document print class (form number).
  9. * Functionally equivilent to N_CLASS function in NETLIB library except it provides
  10. * for 255 classes (forms) instead of 99.
  11. *
  12. FUNCTION NCLASS_
  13. *Purpose : To specify banner page text.
  14. *Usage     : NCLASS_([<expN1>])
  15. *        :
  16. * Where  : <expN1> = Class (form) number. [0..255]
  17. *        :
  18. *        :
  19. PARAMETERS class
  20. LOCAL mclass
  21. PRIVATE rtn :=0
  22.  
  23. do while .t.
  24.   * Check to make sure passed variable types are correct.
  25.   if valtype(class)<>'N' .AND. class<>nil
  26.     rtn = -101
  27.     exit
  28.   endi
  29.  
  30.   * Set up defaults
  31.   mclass =  if(valtype(class)=='N',class,0)
  32.  
  33.   * Get/Set Class (form) number
  34.   if pcount()=0             // If no arguments, return current setting.
  35.     rtn = PRJBDFG(6)        // Get Default Print Job Flags (Form Type)
  36.   else
  37.     rtn = PRJBDFS(,,,,,mclass)  // Set Default Print Job Flags (Form Type)
  38.   endi
  39.   exit
  40. endd
  41. RETURN rtn
  42.  
  43.